   1 .REVERSE
   2 .BY BRETT BILBRAY
   3 .AND MIKE TOTH
  10 N=9;clear 
  20 @(1)=rnd (9)
  30 for K=2to N
  40 @(K)=rnd (9)
  50 for J=1to K-1
  60 if @(K)=@(J)goto 40
  70 next J;next K
  80 CY=25
  90 print "THE LIST IS"
 100 T=0
 110 gosub 280
 120 CY=-20;CX=0;Q=0;NT=0
 130 O=KN(1)div 32+6;if TR(1)=1goto 160
 140 if O#Q CX=-44;print O;Q=O
 150 goto 130
 160 T=T+1; NT=3
 170 for K=1to Qdiv 2
 180 Z=@(K)
 190 @(K)=@(Q-K+1)
 200 @(Q-K+1)=Z
 210 next K
 220 gosub 280
 230 for K=1to 9;if @(K)#Kgoto 120
 240 next K
 250 CX=-70
 260 CY=-20;print "   YOU WON IN",;TV=Tdiv 10+48;TV=T-Tdiv 10mul 10+48;print "MOVES"
 270 goto 10
 280 CX=-50;CY=0
 290 for B=1to N;TV=48+@(B);TV=32; next B
 300 return 
:return ;run 